Performance

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

The Performance section measures participants’ practical digital skills across a range of real-life tasks. Instead of self-reports, these items test what people can actually do: for example, searching for reliable information, recognizing AI-generated images, protecting their devices, or using AI tools effectively. The items cover ten areas of digital competence, from strategic and critical information skills to AI and generative AI skills, providing an overall picture of how well individuals can navigate today’s digital environment.

Safety

Safety & Control of Information and Devices encompasses protecting devices and personal information: using security measures, managing privacy settings, identifying phishing, and controlling what information is shared online.

Which of the following safety precautions do you sometimes take for your digital/online media use?

See all Safety results

Digital Health

Digital Health & Wellbeing skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Digital Health results

Green Digital

Sustainable/Green Digital Skills focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Green Digital results

Digital Problem Solving

Digital Problem Solving measures the ability to find help and solutions for digital challenges: knowing where to get help to improve digital skills and who to turn to when facing technical difficulties.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Digital Problem Solving results

--- title: "{{< iconify ph clipboard-text >}} Performance" format: html --- ```{r} #| include: false library(dashboardr) ``` **THIS IS A MOCKUP VERSION PLEASE DO NOT CITE** The **Performance** section measures participants' practical digital skills across a range of real-life tasks. Instead of self-reports, these items test what people *can actually do*: for example, searching for reliable information, recognizing AI-generated images, protecting their devices, or using AI tools effectively. The items cover ten areas of digital competence, from strategic and critical information skills to AI and generative AI skills, providing an overall picture of how well individuals can navigate today's digital environment. ```{r, echo=FALSE} dashboardr::enable_modals() ``` ```{r setup} #| echo: false #| warning: false #| message: false #| error: false #| results: 'hide' # Load required libraries library(dashboardr) library(dplyr) library(highcharter) # Global chunk options knitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300 ) # Load data from dataset_4014obs.rds data <- readRDS('dataset_4014obs.rds') # Data summary cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n') # Create filtered datasets # Each filter is applied once and reused across visualizations data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1) data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2) ``` ```{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'} # Use dashboardr's loading overlay function dashboardr::add_loading_overlay("Loading", 1, theme = "light") ``` ```{r, echo=FALSE, results='asis'} cat(as.character(dashboardr::modal_content( modal_id = 'PDCCS1R', text = '<h2>Digital Content Creation: Performance Questions</h2> <img src="https://placehold.co/600x400/EEE/31343C" style="max-width:100%; height:auto;"> <p>Information literacy scores were highest at 85%. Participants excelled at search strategies and source evaluation.</p>' ))) ``` ## {{< iconify ph shield-check-fill >}} Safety **Safety & Control of Information and Devices** encompasses protecting devices and personal information: using security measures, managing privacy settings, identifying phishing, and controlling what information is shared online. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("Which of the following safety precautions do you sometimes take for your digital/online media use?", preset = "question") ``` [{{< iconify ph cards >}} See all Safety results](safety.html) ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-safety-wave1-overall} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PSCS3_1, PSCS3_2, PSCS3_3, PSCS3_4, PSCS3_5, PSCS3_6, PSCS3_7, PSCS3_8, PSCS3_9, PSCS3_10), title = "", questions = c("PSCS3_1", "PSCS3_2", "PSCS3_3", "PSCS3_4", "PSCS3_5", "PSCS3_6", "PSCS3_7", "PSCS3_8", "PSCS3_9", "PSCS3_10"), question_labels = c("Keep passwords in a password safe", "Save passwords on paper (rev)", "Use passwords with ≥14 chars", "Different passwords per account", "Use passkey (finger/face)", "Two-step verification", "Install software updates", "Use adblocker", "Make backups", "None of the above"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave1-age-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave1-age-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave1-age-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave1-age-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave1-age-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave1-age-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave1-age-item7} # Install software updates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave1-age-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave1-age-item9} # Make backups result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave1-age-item10} # None of the above result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_10" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave1-gender-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave1-gender-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave1-gender-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave1-gender-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave1-gender-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave1-gender-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave1-gender-item7} # Install software updates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave1-gender-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave1-gender-item9} # Make backups result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave1-gender-item10} # None of the above result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_10" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave1-edu-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave1-edu-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave1-edu-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave1-edu-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave1-edu-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave1-edu-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave1-edu-item7} # Install software updates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave1-edu-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave1-edu-item9} # Make backups result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave1-edu-item10} # None of the above result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_10" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-safety-wave2-overall} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PSCS3_1, PSCS3_2, PSCS3_3, PSCS3_4, PSCS3_5, PSCS3_6, PSCS3_7, PSCS3_8, PSCS3_9, PSCS3_10), title = "", questions = c("PSCS3_1", "PSCS3_2", "PSCS3_3", "PSCS3_4", "PSCS3_5", "PSCS3_6", "PSCS3_7", "PSCS3_8", "PSCS3_9", "PSCS3_10"), question_labels = c("Keep passwords in a password safe", "Save passwords on paper (rev)", "Use passwords with ≥14 chars", "Different passwords per account", "Use passkey (finger/face)", "Two-step verification", "Install software updates", "Use adblocker", "Make backups", "None of the above"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave2-age-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave2-age-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave2-age-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave2-age-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave2-age-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave2-age-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave2-age-item7} # Install software updates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave2-age-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave2-age-item9} # Make backups result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave2-age-item10} # None of the above result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSCS3_10" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave2-gender-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave2-gender-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave2-gender-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave2-gender-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave2-gender-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave2-gender-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave2-gender-item7} # Install software updates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave2-gender-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave2-gender-item9} # Make backups result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave2-gender-item10} # None of the above result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSCS3_10" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-wave2-edu-item1} # Keep passwords in a password safe result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_1), title = "Keep passwords in a password safe", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-wave2-edu-item2} # Save passwords on paper (rev) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_2), title = "Save passwords on paper (rev)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-wave2-edu-item3} # Use passwords with ≥14 chars result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_3), title = "Use passwords with ≥14 chars", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-wave2-edu-item4} # Different passwords per account result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_4), title = "Different passwords per account", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-wave2-edu-item5} # Use passkey (finger/face) result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_5), title = "Use passkey (finger/face)", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-wave2-edu-item6} # Two-step verification result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_6), title = "Two-step verification", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-wave2-edu-item7} # Install software updates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_7), title = "Install software updates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-wave2-edu-item8} # Use adblocker result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_8), title = "Use adblocker", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-wave2-edu-item9} # Make backups result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_9), title = "Make backups", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-wave2-edu-item10} # None of the above result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_10), title = "None of the above", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSCS3_10" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-overtime-overall-item1} # Keep passwords in a password safe result <- create_timeline( data = data, title = "Keep passwords in a password safe", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-overtime-overall-item2} # Save passwords on paper (rev) result <- create_timeline( data = data, title = "Save passwords on paper (rev)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-overtime-overall-item3} # Use passwords with ≥14 chars result <- create_timeline( data = data, title = "Use passwords with ≥14 chars", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-overtime-overall-item4} # Different passwords per account result <- create_timeline( data = data, title = "Different passwords per account", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-overtime-overall-item5} # Use passkey (finger/face) result <- create_timeline( data = data, title = "Use passkey (finger/face)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-overtime-overall-item6} # Two-step verification result <- create_timeline( data = data, title = "Two-step verification", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-overtime-overall-item7} # Install software updates result <- create_timeline( data = data, title = "Install software updates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-overtime-overall-item8} # Use adblocker result <- create_timeline( data = data, title = "Use adblocker", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_8" ) result ``` ###### item9 ```{r perf-safety-overtime-overall-item9} # Make backups result <- create_timeline( data = data, title = "Make backups", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_9" ) result ``` ###### item10 ```{r perf-safety-overtime-overall-item10} # None of the above result <- create_timeline( data = data, title = "None of the above", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSCS3_10" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-overtime-age-item1} # Keep passwords in a password safe result <- create_timeline( data = data, title = "Keep passwords in a password safe", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-overtime-age-item2} # Save passwords on paper (rev) result <- create_timeline( data = data, title = "Save passwords on paper (rev)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-overtime-age-item3} # Use passwords with ≥14 chars result <- create_timeline( data = data, title = "Use passwords with ≥14 chars", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_3", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-overtime-age-item4} # Different passwords per account result <- create_timeline( data = data, title = "Different passwords per account", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_4", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-overtime-age-item5} # Use passkey (finger/face) result <- create_timeline( data = data, title = "Use passkey (finger/face)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-overtime-age-item6} # Two-step verification result <- create_timeline( data = data, title = "Two-step verification", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-overtime-age-item7} # Install software updates result <- create_timeline( data = data, title = "Install software updates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_7", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-overtime-age-item8} # Use adblocker result <- create_timeline( data = data, title = "Use adblocker", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_8", group_var = "AgeGroup" ) result ``` ###### item9 ```{r perf-safety-overtime-age-item9} # Make backups result <- create_timeline( data = data, title = "Make backups", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_9", group_var = "AgeGroup" ) result ``` ###### item10 ```{r perf-safety-overtime-age-item10} # None of the above result <- create_timeline( data = data, title = "None of the above", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_10", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-overtime-gender-item1} # Keep passwords in a password safe result <- create_timeline( data = data, title = "Keep passwords in a password safe", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-overtime-gender-item2} # Save passwords on paper (rev) result <- create_timeline( data = data, title = "Save passwords on paper (rev)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-overtime-gender-item3} # Use passwords with ≥14 chars result <- create_timeline( data = data, title = "Use passwords with ≥14 chars", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_3", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-overtime-gender-item4} # Different passwords per account result <- create_timeline( data = data, title = "Different passwords per account", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_4", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-overtime-gender-item5} # Use passkey (finger/face) result <- create_timeline( data = data, title = "Use passkey (finger/face)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-overtime-gender-item6} # Two-step verification result <- create_timeline( data = data, title = "Two-step verification", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-overtime-gender-item7} # Install software updates result <- create_timeline( data = data, title = "Install software updates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_7", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-overtime-gender-item8} # Use adblocker result <- create_timeline( data = data, title = "Use adblocker", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_8", group_var = "geslacht" ) result ``` ###### item9 ```{r perf-safety-overtime-gender-item9} # Make backups result <- create_timeline( data = data, title = "Make backups", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_9", group_var = "geslacht" ) result ``` ###### item10 ```{r perf-safety-overtime-gender-item10} # None of the above result <- create_timeline( data = data, title = "None of the above", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_10", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-safety-overtime-edu-item1} # Keep passwords in a password safe result <- create_timeline( data = data, title = "Keep passwords in a password safe", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-safety-overtime-edu-item2} # Save passwords on paper (rev) result <- create_timeline( data = data, title = "Save passwords on paper (rev)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-safety-overtime-edu-item3} # Use passwords with ≥14 chars result <- create_timeline( data = data, title = "Use passwords with ≥14 chars", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_3", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-safety-overtime-edu-item4} # Different passwords per account result <- create_timeline( data = data, title = "Different passwords per account", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_4", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-safety-overtime-edu-item5} # Use passkey (finger/face) result <- create_timeline( data = data, title = "Use passkey (finger/face)", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-safety-overtime-edu-item6} # Two-step verification result <- create_timeline( data = data, title = "Two-step verification", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-safety-overtime-edu-item7} # Install software updates result <- create_timeline( data = data, title = "Install software updates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_7", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-safety-overtime-edu-item8} # Use adblocker result <- create_timeline( data = data, title = "Use adblocker", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_8", group_var = "Education" ) result ``` ###### item9 ```{r perf-safety-overtime-edu-item9} # Make backups result <- create_timeline( data = data, title = "Make backups", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_9", group_var = "Education" ) result ``` ###### item10 ```{r perf-safety-overtime-edu-item10} # None of the above result <- create_timeline( data = data, title = "None of the above", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSCS3_10", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph heart-fill >}} Digital Health **Digital Health & Wellbeing** skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question") ``` [{{< iconify ph cards >}} See all Digital Health results](digital_health.html) ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-health-wave1-overall} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8), title = "", questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"), question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave1-age-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave1-age-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave1-age-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave1-age-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave1-age-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave1-age-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave1-age-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave1-age-item8} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_8" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave1-gender-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave1-gender-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave1-gender-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave1-gender-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave1-gender-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave1-gender-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave1-gender-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave1-gender-item8} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_8" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave1-edu-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave1-edu-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave1-edu-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave1-edu-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave1-edu-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave1-edu-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave1-edu-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave1-edu-item8} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_8" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-health-wave2-overall} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8), title = "", questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"), question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave2-age-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave2-age-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave2-age-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave2-age-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave2-age-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave2-age-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave2-age-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave2-age-item8} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PDHWS1_8" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave2-gender-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave2-gender-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave2-gender-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave2-gender-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave2-gender-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave2-gender-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave2-gender-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave2-gender-item8} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PDHWS1_8" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-wave2-edu-item1} # Create digital detox moments result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_1), title = "Create digital detox moments", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-wave2-edu-item2} # Have rules limiting digital media result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_2), title = "Have rules limiting digital media", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-wave2-edu-item3} # Use screen-time limiter result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_3), title = "Use screen-time limiter", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-wave2-edu-item4} # Temporarily switch off Internet result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_4), title = "Temporarily switch off Internet", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-wave2-edu-item5} # Delete apps/programs result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_5), title = "Delete apps/programs", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-wave2-edu-item6} # Turn off notifications result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_6), title = "Turn off notifications", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-wave2-edu-item7} # Reduce time without special approach result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_7), title = "Reduce time without special approach", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-wave2-edu-item8} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_8), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PDHWS1_8" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-overtime-overall-item1} # Create digital detox moments result <- create_timeline( data = data, title = "Create digital detox moments", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-overtime-overall-item2} # Have rules limiting digital media result <- create_timeline( data = data, title = "Have rules limiting digital media", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-overtime-overall-item3} # Use screen-time limiter result <- create_timeline( data = data, title = "Use screen-time limiter", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-overtime-overall-item4} # Temporarily switch off Internet result <- create_timeline( data = data, title = "Temporarily switch off Internet", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-overtime-overall-item5} # Delete apps/programs result <- create_timeline( data = data, title = "Delete apps/programs", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-overtime-overall-item6} # Turn off notifications result <- create_timeline( data = data, title = "Turn off notifications", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-overtime-overall-item7} # Reduce time without special approach result <- create_timeline( data = data, title = "Reduce time without special approach", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-overtime-overall-item8} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PDHWS1_8" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-overtime-age-item1} # Create digital detox moments result <- create_timeline( data = data, title = "Create digital detox moments", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-overtime-age-item2} # Have rules limiting digital media result <- create_timeline( data = data, title = "Have rules limiting digital media", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-overtime-age-item3} # Use screen-time limiter result <- create_timeline( data = data, title = "Use screen-time limiter", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_3", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-overtime-age-item4} # Temporarily switch off Internet result <- create_timeline( data = data, title = "Temporarily switch off Internet", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_4", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-overtime-age-item5} # Delete apps/programs result <- create_timeline( data = data, title = "Delete apps/programs", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-overtime-age-item6} # Turn off notifications result <- create_timeline( data = data, title = "Turn off notifications", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-overtime-age-item7} # Reduce time without special approach result <- create_timeline( data = data, title = "Reduce time without special approach", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_7", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-overtime-age-item8} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_8", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-overtime-gender-item1} # Create digital detox moments result <- create_timeline( data = data, title = "Create digital detox moments", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-overtime-gender-item2} # Have rules limiting digital media result <- create_timeline( data = data, title = "Have rules limiting digital media", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-overtime-gender-item3} # Use screen-time limiter result <- create_timeline( data = data, title = "Use screen-time limiter", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_3", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-overtime-gender-item4} # Temporarily switch off Internet result <- create_timeline( data = data, title = "Temporarily switch off Internet", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_4", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-overtime-gender-item5} # Delete apps/programs result <- create_timeline( data = data, title = "Delete apps/programs", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-overtime-gender-item6} # Turn off notifications result <- create_timeline( data = data, title = "Turn off notifications", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-overtime-gender-item7} # Reduce time without special approach result <- create_timeline( data = data, title = "Reduce time without special approach", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_7", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-overtime-gender-item8} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_8", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-health-overtime-edu-item1} # Create digital detox moments result <- create_timeline( data = data, title = "Create digital detox moments", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-health-overtime-edu-item2} # Have rules limiting digital media result <- create_timeline( data = data, title = "Have rules limiting digital media", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-health-overtime-edu-item3} # Use screen-time limiter result <- create_timeline( data = data, title = "Use screen-time limiter", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_3", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-health-overtime-edu-item4} # Temporarily switch off Internet result <- create_timeline( data = data, title = "Temporarily switch off Internet", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_4", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-health-overtime-edu-item5} # Delete apps/programs result <- create_timeline( data = data, title = "Delete apps/programs", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-health-overtime-edu-item6} # Turn off notifications result <- create_timeline( data = data, title = "Turn off notifications", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-health-overtime-edu-item7} # Reduce time without special approach result <- create_timeline( data = data, title = "Reduce time without special approach", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_7", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-health-overtime-edu-item8} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PDHWS1_8", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph recycle-fill >}} Green Digital **Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question") ``` [{{< iconify ph cards >}} See all Green Digital results](green_digital.html) ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-green-wave1-overall} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9), title = "", questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"), question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-age-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-age-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-age-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-age-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-age-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-age-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-age-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-age-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-age-item9} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-gender-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-gender-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-gender-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-gender-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-gender-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-gender-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-gender-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-gender-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-gender-item9} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-edu-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-edu-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-edu-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-edu-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-edu-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-edu-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-edu-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-edu-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-edu-item9} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_9" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-green-wave2-overall} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9), title = "", questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"), question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-age-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-age-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-age-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-age-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-age-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-age-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-age-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-age-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-age-item9} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-gender-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-gender-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-gender-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-gender-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-gender-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-gender-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-gender-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-gender-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-gender-item9} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-edu-item1} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-edu-item2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-edu-item3} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-edu-item4} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-edu-item5} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-edu-item6} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-edu-item7} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-edu-item8} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-edu-item9} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_9" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-overall-item1} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-overall-item2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-overall-item3} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-overall-item4} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-overall-item5} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-overall-item6} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-overall-item7} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-overall-item8} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-overtime-overall-item9} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-age-item1} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-age-item2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-age-item3} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-age-item4} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-age-item5} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-age-item6} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-age-item7} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-age-item8} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "AgeGroup" ) result ``` ###### item9 ```{r perf-green-overtime-age-item9} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-gender-item1} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-gender-item2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-gender-item3} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-gender-item4} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-gender-item5} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-gender-item6} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-gender-item7} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-gender-item8} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "geslacht" ) result ``` ###### item9 ```{r perf-green-overtime-gender-item9} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-edu-item1} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-edu-item2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-edu-item3} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-edu-item4} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-edu-item5} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-edu-item6} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-edu-item7} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-edu-item8} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "Education" ) result ``` ###### item9 ```{r perf-green-overtime-edu-item9} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph lightbulb-fill >}} Digital Problem Solving **Digital Problem Solving** measures the ability to find help and solutions for digital challenges: knowing where to get help to improve digital skills and who to turn to when facing technical difficulties. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question") ``` [{{< iconify ph cards >}} See all Digital Problem Solving results](digital_problem_solving.html) ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-ps-wave1-overall} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SourceHelp_1, SourceHelp_2, SourceHelp_3, SourceHelp_4, SourceHelp_5, SourceHelp_6, SourceHelp_7, SourceHelp_8, SourceHelp_9), title = "", questions = c("SourceHelp_1", "SourceHelp_2", "SourceHelp_3", "SourceHelp_4", "SourceHelp_5", "SourceHelp_6", "SourceHelp_7", "SourceHelp_8", "SourceHelp_9"), question_labels = c("I don't need help", "I don't know anyone", "Family", "Friends", "Colleagues/classmates", "Neighbors/acquaintances", "Help desk", "Library", "Telecom/online helpdesk"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave1-age-item1} # I don't need help result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave1-age-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave1-age-item3} # Family result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave1-age-item4} # Friends result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave1-age-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave1-age-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave1-age-item7} # Help desk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave1-age-item8} # Library result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave1-age-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave1-gender-item1} # I don't need help result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave1-gender-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave1-gender-item3} # Family result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave1-gender-item4} # Friends result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave1-gender-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave1-gender-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave1-gender-item7} # Help desk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave1-gender-item8} # Library result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave1-gender-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave1-edu-item1} # I don't need help result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave1-edu-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave1-edu-item3} # Family result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave1-edu-item4} # Friends result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave1-edu-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave1-edu-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave1-edu-item7} # Help desk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave1-edu-item8} # Library result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave1-edu-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_9" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-ps-wave2-overall} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SourceHelp_1, SourceHelp_2, SourceHelp_3, SourceHelp_4, SourceHelp_5, SourceHelp_6, SourceHelp_7, SourceHelp_8, SourceHelp_9), title = "", questions = c("SourceHelp_1", "SourceHelp_2", "SourceHelp_3", "SourceHelp_4", "SourceHelp_5", "SourceHelp_6", "SourceHelp_7", "SourceHelp_8", "SourceHelp_9"), question_labels = c("I don't need help", "I don't know anyone", "Family", "Friends", "Colleagues/classmates", "Neighbors/acquaintances", "Help desk", "Library", "Telecom/online helpdesk"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave2-age-item1} # I don't need help result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave2-age-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave2-age-item3} # Family result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave2-age-item4} # Friends result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave2-age-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave2-age-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave2-age-item7} # Help desk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave2-age-item8} # Library result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave2-age-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SourceHelp_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave2-gender-item1} # I don't need help result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave2-gender-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave2-gender-item3} # Family result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave2-gender-item4} # Friends result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave2-gender-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave2-gender-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave2-gender-item7} # Help desk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave2-gender-item8} # Library result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave2-gender-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SourceHelp_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-wave2-edu-item1} # I don't need help result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_1), title = "I don't need help", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-wave2-edu-item2} # I don't know anyone result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_2), title = "I don't know anyone", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-wave2-edu-item3} # Family result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_3), title = "Family", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-wave2-edu-item4} # Friends result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_4), title = "Friends", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-wave2-edu-item5} # Colleagues/classmates result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_5), title = "Colleagues/classmates", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-wave2-edu-item6} # Neighbors/acquaintances result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_6), title = "Neighbors/acquaintances", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-wave2-edu-item7} # Help desk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_7), title = "Help desk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-wave2-edu-item8} # Library result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_8), title = "Library", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-wave2-edu-item9} # Telecom/online helpdesk result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_9), title = "Telecom/online helpdesk", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SourceHelp_9" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-overtime-overall-item1} # I don't need help result <- create_timeline( data = data, title = "I don't need help", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-overtime-overall-item2} # I don't know anyone result <- create_timeline( data = data, title = "I don't know anyone", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-overtime-overall-item3} # Family result <- create_timeline( data = data, title = "Family", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-overtime-overall-item4} # Friends result <- create_timeline( data = data, title = "Friends", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-overtime-overall-item5} # Colleagues/classmates result <- create_timeline( data = data, title = "Colleagues/classmates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-overtime-overall-item6} # Neighbors/acquaintances result <- create_timeline( data = data, title = "Neighbors/acquaintances", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-overtime-overall-item7} # Help desk result <- create_timeline( data = data, title = "Help desk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-overtime-overall-item8} # Library result <- create_timeline( data = data, title = "Library", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_8" ) result ``` ###### item9 ```{r perf-ps-overtime-overall-item9} # Telecom/online helpdesk result <- create_timeline( data = data, title = "Telecom/online helpdesk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "SourceHelp_9" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-overtime-age-item1} # I don't need help result <- create_timeline( data = data, title = "I don't need help", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-overtime-age-item2} # I don't know anyone result <- create_timeline( data = data, title = "I don't know anyone", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-overtime-age-item3} # Family result <- create_timeline( data = data, title = "Family", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_3", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-overtime-age-item4} # Friends result <- create_timeline( data = data, title = "Friends", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_4", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-overtime-age-item5} # Colleagues/classmates result <- create_timeline( data = data, title = "Colleagues/classmates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-overtime-age-item6} # Neighbors/acquaintances result <- create_timeline( data = data, title = "Neighbors/acquaintances", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-overtime-age-item7} # Help desk result <- create_timeline( data = data, title = "Help desk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_7", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-overtime-age-item8} # Library result <- create_timeline( data = data, title = "Library", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_8", group_var = "AgeGroup" ) result ``` ###### item9 ```{r perf-ps-overtime-age-item9} # Telecom/online helpdesk result <- create_timeline( data = data, title = "Telecom/online helpdesk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_9", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-overtime-gender-item1} # I don't need help result <- create_timeline( data = data, title = "I don't need help", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-overtime-gender-item2} # I don't know anyone result <- create_timeline( data = data, title = "I don't know anyone", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-overtime-gender-item3} # Family result <- create_timeline( data = data, title = "Family", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_3", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-overtime-gender-item4} # Friends result <- create_timeline( data = data, title = "Friends", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_4", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-overtime-gender-item5} # Colleagues/classmates result <- create_timeline( data = data, title = "Colleagues/classmates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-overtime-gender-item6} # Neighbors/acquaintances result <- create_timeline( data = data, title = "Neighbors/acquaintances", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-overtime-gender-item7} # Help desk result <- create_timeline( data = data, title = "Help desk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_7", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-overtime-gender-item8} # Library result <- create_timeline( data = data, title = "Library", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_8", group_var = "geslacht" ) result ``` ###### item9 ```{r perf-ps-overtime-gender-item9} # Telecom/online helpdesk result <- create_timeline( data = data, title = "Telecom/online helpdesk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_9", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-ps-overtime-edu-item1} # I don't need help result <- create_timeline( data = data, title = "I don't need help", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-ps-overtime-edu-item2} # I don't know anyone result <- create_timeline( data = data, title = "I don't know anyone", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-ps-overtime-edu-item3} # Family result <- create_timeline( data = data, title = "Family", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_3", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-ps-overtime-edu-item4} # Friends result <- create_timeline( data = data, title = "Friends", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_4", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-ps-overtime-edu-item5} # Colleagues/classmates result <- create_timeline( data = data, title = "Colleagues/classmates", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-ps-overtime-edu-item6} # Neighbors/acquaintances result <- create_timeline( data = data, title = "Neighbors/acquaintances", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-ps-overtime-edu-item7} # Help desk result <- create_timeline( data = data, title = "Help desk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_7", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-ps-overtime-edu-item8} # Library result <- create_timeline( data = data, title = "Library", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_8", group_var = "Education" ) result ``` ###### item9 ```{r perf-ps-overtime-edu-item9} # Telecom/online helpdesk result <- create_timeline( data = data, title = "Telecom/online helpdesk", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "SourceHelp_9", group_var = "Education" ) result ``` ::: ::: ::: ```{=html} <nav class='pagination-nav pagination-bottom' role='navigation' aria-label='Page navigation'> <div class='pagination-container'> <a href='performance.html' class='pagination-btn pagination-prev' aria-label='Previous page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M12 16L6 10L12 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </a> <div class='pagination-info'> <span class='pagination-prefix'></span> <input type='number' class='pagination-input' id='page-input-bottom' min='1' max='3' value='2' aria-label='Current page'> <span class='pagination-separator'> / 3</span> </div> <a href='performance_p3.html' class='pagination-btn pagination-next' aria-label='Next page'> <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'> <path d='M8 16L14 10L8 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/> </svg> </a> </div> </nav>  <script> (function() { const pageUrls = ["performance.html","performance_p2.html","performance_p3.html"]; const pageInput = document.getElementById('page-input-bottom'); if (pageInput) { pageInput.addEventListener('change', function() { const pageNum = parseInt(this.value); if (pageNum >= 1 && pageNum <= pageUrls.length) { window.location.href = pageUrls[pageNum - 1]; } else { this.value = this.getAttribute('value'); } }); pageInput.addEventListener('keypress', function(e) { if (e.key === 'Enter') { this.blur(); } }); } })(); </script> ```